home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio / Ham Radio CD-ROM (Emerald Software) (1995).ISO / misc / utilitys / rms.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1021 b   |  53 lines
  1. 2  DIM A(15),B(15),S(15)
  2. 10  PRINT "THIS IS A PROGRAM TO FIND THE RMS VALUE OF ANY COMPLEX WAVE.
  3. 15  PRINT:PRINT,"k2uyh --- modified for ibm pc -- wa2tif":PRINT
  4. 20  PRINT "ENTER PERIOD"
  5. 30  INPUT T
  6. 60  A(0)=T/24
  7. 62  A(1)=A(0)*3
  8. 64  A(2)=A(0)*5
  9. 66  A(3)=A(0)*7
  10. 68  A(4)=A(0)*9
  11. 70  A(5)=A(0)*11
  12. 72  A(6)=A(0)*13
  13. 74  A(7)=A(0)*15
  14. 76  A(8)=A(0)*17
  15. 78  A(9)=A(0)*19
  16. 79  A(10)=A(0)*21
  17. 80  A(11)=A(0)*23
  18. 81  PRINT "ENTER THE VALUES OF VOLTAGE WHICH CORRESPONDES TO THE 
  19. 82  PRINT "FOLLOWING TWELVE DIVISIONS OF THE PERIOD."
  20. 83  FOR Z=0 TO 11
  21. 84  PRINT; A(Z)
  22. 85  INPUT B(Z)
  23. 86  NEXT Z
  24. 90  C=B(0)^2
  25. 91  D=B(1)^2
  26. 92  E=B(2)^2
  27. 93  F=B(3)^2
  28. 94  G=B(4)^2
  29. 95  H=B(5)^2
  30. 96  I=B(6)^2
  31. 97  J=B(7)^2
  32. 98  K=B(8)^2
  33. 99  L=B(9)^2
  34. 100  M=B(10)^2
  35. 101  N=B(11)^2
  36. 155  U=A(0)*2
  37. 200  S(0)=C*U
  38. 201  S(1)=D*U
  39. 202  S(2)=E*U
  40. 203  S(3)=F*U
  41. 204  S(4)=G*U
  42. 205  S(5)=H*U
  43. 206  S(6)=I*U
  44. 207  S(7)=J*U
  45. 208  S(8)=K*U
  46. 209  S(9)=L*U
  47. 210  S(10)=M*U
  48. 211  S(11)=N*U
  49. 250  X=S(1)+S(2)+S(3)+S(4)+S(5)+S(6)+S(7)+S(8)+S(9)+S(10)+S(11)+S(0)
  50. 255  Z=(X/T)^0.5
  51. 425  PRINT "THE RMS VALUE OF THE WAVE IS,"
  52. 430  PRINT "        "  Z   "VOLTS RMS"
  53.